home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_85-09_1985_Verlag_Heinz_Weise_de.d64
/
cave climber
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
15KB
|
77 lines
1 ifpeek(50307)=120thenpoke50257,16
1000 poke53248+33,0:poke53248+32,0
1010 print"[147]"chr$(142)chr$(8)
1020 printtab(13)"[158][213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
1030 printtab(13)"[221][156]cave climber[158][221]"
1040 printtab(13)"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]"
1050 printtab(7)"[159] by thorsten lange "
1060 printtab(14)"[129]aus input 64"
1065 printtab(13)"-1-[146] [154]anleitung"
1067 printtab(13)"-2-[146] [154]spielstart"
1070 printtab(14)"ihre wahl ? ";
1080 poke204,0:poke198,0
1100 get a$:ifa$<>"1"anda$<>"2"then1100
1110 if peek(207)then1110
1120 poke204,1:printa$
1130 if a$="2"then 5000
2000 print"[147]"
2010 print"[211]pielziel :"
2020 print"[154][211]ie muessen alle goldenen [194]aelle einsam-";
2030 print"meln und dann den [193]usgang am oberen"
2040 print"[194]ildschirmrand erreichen bevor [211]ie keine";
2050 print"[203]raft mehr haben."
2060 print"[196]abei muessen [211]ie [214]oegeln, [197]iern, [209]uarks";
2070 print"und den [200]oehlenbewohnern ausweichen. "
2100 gosub10000
3000 print"[147][211]pielsteuerung :"
3010 print"[154][199]esteuert wird [201]hre [198]igur mit einem"
3020 print"[202]oystick in [208]ort 2 oder mit der [212]astatur"
3030 print"[212]astaturbelegung :":print
3040 print"';' = rechts"
3050 print"':' = links"
3060 print"'[200]' = oben"
3070 print"'[206]' = unten
3080 [153]"'(NULL)(NULL)atnlenval' = asceuerknopf"
3499 [141]10000
3500 [153]"loadascunktionen :"
3510 [153]"contstr$urch druecken der asceuertaste wird das"
3520 [153]"(NULL)aennchen von einem valnergieschild vor"
3530 [153]"den atnngreifern geschuetzt, wobei aber"
3540 [153]"sehr viel (NULL)raft verbraucht wird."
3550 [153]"(NULL)enn (NULL)ie den mid$oystick nach oben druecken";
3560 [153]"wird ein (NULL)eil gespannt, falls dieses auf";
3570 [153]"festen peekoden trifft. chr$ehen (NULL)ie nun"
3580 [153]"direkt unter das (NULL)eil und druecken"
3590 [153]"nochmals nach oben, so koennen (NULL)ie nun"
3600 [153]"am (NULL)eil entlang hangeln."
3610 [153]"str$urch druecken nach unten laesst das"
3620 [153]"(NULL)aennchen das (NULL)eill wieder los."
3700 [153]:[153]"str$urch druecken von asc7wait koennen (NULL)ie das"
3710 [153]"(NULL)piel unterbrechen; durch betaetigen des";
3720 [153]"valnergieschildes wieder starten."
3999 [141]10000
4000 [153]"loadatnnmerkungen :"
4010 [153]"cont-das (NULL)eil wird immer in (NULL)aufrichtung"
4020 [153]" gespannt"
4030 [153]"-(NULL)ie haben nur ein (NULL)eil => das alte wird";
4040 [153]" deshalb wieder eingezogen"
4050 [153]"-die (NULL)ianen koennen nur von oben"
4060 [153]" erreicht werden"
4070 [153]"-es gibt vier verschiedene (NULL)creens,wobei";
4080 [153]" das (NULL)piel bis (NULL)evel 25 immer schwerer"
4090 [153]" wird. ( bisheriger (NULL)ekord: (NULL)evel 11 )"
4100 [153]"-nach jeder zweiten ueberstandenen (NULL)unde";
4110 [153]" erhalten sie ein valxtraleben"
4120 [153]"-wenn (NULL)ie einen goldenen peekall aufsammeln";
4130 [153]" bekommen (NULL)ie etwas valnergie"
4200 [141]10000
4300 [137] 1000
5000 [153]"load"[199](142)[199](8):[143] starten
9999 [158] 4592
10000 [153]"sys(NULL)eiter mit (NULL)cmd";
10010 [151]204,0:[151]198,0
10020 [161]a$:[139]a$[179][177]"w"[167]10020
10040 [139][194](207)[167]10040
10050 [151]204,1:[142]
10060 [142]